home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
18
/
fpc103.zip
/
COLOR.SEQ
< prev
next >
Wrap
Text File
|
1987-12-21
|
1KB
|
48 lines
\ COLOR.SEQ Color board support for ZF by Tom Zimmer
\ For Color boards, the following values may be used for background
\ or forground.
HEX
00 CONSTANT BLACK \ black
01 CONSTANT BLUE \ blue
02 CONSTANT GREEN \ green
03 CONSTANT CYAN \ cyan
04 CONSTANT RED \ red
05 CONSTANT MAGENTA \ magenta
06 CONSTANT BROWN \ brown
07 CONSTANT LTGRAY \ light gray
08 CONSTANT DKGRAY \ dark gray All following, blink in Background.
09 CONSTANT LTBLUE \ light blue
0A CONSTANT LTGREEN \ light green
0B CONSTANT LTCYAN \ light cyan
0C CONSTANT LTRED \ light red
0D CONSTANT LTMAGENTA \ light magenta
0E CONSTANT YELLOW \ yellow
0F CONSTANT WHITE \ white
: >FG ( N1 --- )
attrib c@ F0 and + attrib c! ;
: >BG ( N1 --- )
10 * attrib c@ 0F and + attrib c! ;
: >BUGN ( --- ) BLUE >BG GREEN >FG ;
: >RDWT ( --- ) RED >BG WHITE >FG ;
: >BUWT ( --- ) GREEN >BG WHITE >FG ;
: >COLOR ( --- ) \ Select hilighting for color monitor.
['] >BUGN IS >ATTRIB1
['] >RDWT IS >ATTRIB2
['] >BUWT IS >ATTRIB3
['] >RDWT IS >ATTRIB4 ;
' >COLOR IS INITCOLOR \ Enable attributes according to video board.
VMODE.SET \ RESET VIDEO MODE TO CURRENT VIDEO BOARD.
DECIMAL